home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / docs / winer / chap6-13.bas < prev    next >
Encoding:
BASIC Source File  |  1992-05-13  |  484 b   |  24 lines
  1. '*********** CHAP6-13.BAS - shows how to save/load CGA graphics screens
  2.  
  3. 'Copyright (c) 1992 Ethan Winer
  4.  
  5. DEFINT A-Z
  6. SCREEN 1
  7.  
  8. DEF SEG = 0
  9. PageSize = PEEK(&H44C) + 256 * PEEK(&H44D)
  10.  
  11. FOR X = 1 TO 10
  12.   CIRCLE (140, 95), X * 10, 2
  13. NEXT
  14.  
  15. DEF SEG = &HB800
  16. BSAVE "CIRCLES.CGA", 0, PageSize
  17. PRINT "The screen was just saved, press a key."
  18. WHILE LEN(INKEY$) = 0: WEND
  19.  
  20. CLS
  21. PRINT "Now press a key to load the screen."
  22. WHILE LEN(INKEY$) = 0: WEND
  23. BLOAD "CIRCLES.CGA", 0
  24.